home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The School House• / HeloMath •••• / HeloMath ееее.rsrc / CODE_1_Main.txt < prev    next >
Text File  |  1988-10-20  |  42KB  |  771 lines
  1. # near model CODE resource
  2. # jump table entries: 0-10 (11 of them)
  3. export_0:
  4. 00000000  4EBA 069C                jsr        [PC + 0x69C /* 0000069E */]
  5. 00000004  4E56 0000                link       A6, 0
  6. 00000008  2C5F                     movea.l    A6, [A7]+
  7. 0000000A  4EBA 0694                jsr        [PC + 0x694 /* 000006A0 */]
  8. 0000000E  486D C44E                pea.l      [A5 - 0x3BB2]
  9. 00000012  A86E                     syscall    InitGraf
  10. 00000014  A8FE                     syscall    InitFonts
  11. 00000016  2F3C 0000 FFFF           move.l     -[A7], 0xFFFF
  12. 0000001C  201F                     move.l     D0, [A7]+
  13. 0000001E  A032                     syscall    FlushEvents
  14. 00000020  4EAD 011A                jsr        [A5 + 0x11A /* export_31 */]
  15. label00000024:
  16. 00000024  486D 008A                pea.l      [A5 + 0x8A /* export_13 */]
  17. 00000028  A9F1                     syscall    UnloadSeg
  18. 0000002A  486D 0092                pea.l      [A5 + 0x92 /* export_14 */]
  19. 0000002E  A9F1                     syscall    UnloadSeg
  20. 00000030  486D 00AA                pea.l      [A5 + 0xAA /* export_17 */]
  21. 00000034  A9F1                     syscall    UnloadSeg
  22. 00000036  486D 00B2                pea.l      [A5 + 0xB2 /* export_18 */]
  23. 0000003A  A9F1                     syscall    UnloadSeg
  24. 0000003C  486D 00BA                pea.l      [A5 + 0xBA /* export_19 */]
  25. 00000040  A9F1                     syscall    UnloadSeg
  26. 00000042  486D 00C2                pea.l      [A5 + 0xC2 /* export_20 */]
  27. 00000046  A9F1                     syscall    UnloadSeg
  28. 00000048  486D 00CA                pea.l      [A5 + 0xCA /* export_21 */]
  29. 0000004C  A9F1                     syscall    UnloadSeg
  30. 0000004E  486D 00FA                pea.l      [A5 + 0xFA /* export_27 */]
  31. 00000052  A9F1                     syscall    UnloadSeg
  32. 00000054  486D 00FA                pea.l      [A5 + 0xFA /* export_27 */]
  33. 00000058  A9F1                     syscall    UnloadSeg
  34. 0000005A  486D 010A                pea.l      [A5 + 0x10A /* export_29 */]
  35. 0000005E  A9F1                     syscall    UnloadSeg
  36. 00000060  486D 011A                pea.l      [A5 + 0x11A /* export_31 */]
  37. 00000064  A9F1                     syscall    UnloadSeg
  38. 00000066  A9B4                     syscall    SystemTask
  39. 00000068  102D C51D                move.b     D0, [A5 - 0x3AE3]
  40. 0000006C  6704                     beq        +0x6 /* 00000072 */
  41. 0000006E  4EAD 0102                jsr        [A5 + 0x102 /* export_28 */]
  42. label00000072:
  43. 00000072  42A7                     clr.l      -[A7]
  44. 00000074  A975                     syscall    TickCount
  45. 00000076  201F                     move.l     D0, [A7]+
  46. 00000078  90AD C83C                sub.l      D0, [A5 - 0x37C4]
  47. 0000007C  0C80 0000 01E0           cmpi.l     D0, 0x1E0
  48. 00000082  5CC0                     sge        D0
  49. 00000084  C02D C51D                and.b      D0, [A5 - 0x3AE3]
  50. 00000088  6704                     beq        +0x6 /* 0000008E */
  51. 0000008A  4EAD 010A                jsr        [A5 + 0x10A /* export_29 */]
  52. label0000008E:
  53. 0000008E  7001                     moveq.l    D0, 0x01
  54. 00000090  B06D EC24                cmp.w      D0, [A5 - 0x13DC]
  55. 00000094  57C0                     seq        D0
  56. 00000096  C02D C62D                and.b      D0, [A5 - 0x39D3]
  57. 0000009A  6704                     beq        +0x6 /* 000000A0 */
  58. 0000009C  4EAD 0112                jsr        [A5 + 0x112 /* export_30 */]
  59. label000000A0:
  60. 000000A0  2F3C FFFF 0000           move.l     -[A7], 0xFFFF0000
  61. 000000A6  486D FFBC                pea.l      [A5 - 0x44]
  62. 000000AA  A970                     syscall    GetNextEvent
  63. 000000AC  101F                     move.b     D0, [A7]+
  64. 000000AE  6700 00A8                beq        +0xAA /* 00000158 */
  65. 000000B2  302D FFBC                move.w     D0, [A5 - 0x44]
  66. 000000B6  5340                     subq.w     D0, 1
  67. 000000B8  670C                     beq        +0xE /* 000000C6 */
  68. 000000BA  5540                     subq.w     D0, 2
  69. 000000BC  6766                     beq        +0x68 /* 00000124 */
  70. 000000BE  5540                     subq.w     D0, 2
  71. 000000C0  6762                     beq        +0x64 /* 00000124 */
  72. 000000C2  6000 0094                bra        +0x96 /* 00000158 */
  73. label000000C6:
  74. 000000C6  4267                     clr.w      -[A7]
  75. 000000C8  2F2D FFC6                move.l     -[A7], [A5 - 0x3A]
  76. 000000CC  486D FF14                pea.l      [A5 - 0xEC]
  77. 000000D0  A92C                     syscall    FindWindow
  78. 000000D2  3B5F FFB8                move.w     [A5 - 0x48], [A7]+
  79. 000000D6  302D FFB8                move.w     D0, [A5 - 0x48]
  80. 000000DA  5340                     subq.w     D0, 1
  81. 000000DC  6712                     beq        +0x14 /* 000000F0 */
  82. 000000DE  5340                     subq.w     D0, 1
  83. 000000E0  671C                     beq        +0x1E /* 000000FE */
  84. 000000E2  5340                     subq.w     D0, 1
  85. 000000E4  671C                     beq        +0x1E /* 00000102 */
  86. 000000E6  5340                     subq.w     D0, 1
  87. 000000E8  6716                     beq        +0x18 /* 00000100 */
  88. 000000EA  5340                     subq.w     D0, 1
  89. 000000EC  6714                     beq        +0x16 /* 00000102 */
  90. 000000EE  6068                     bra        +0x6A /* 00000158 */
  91. label000000F0:
  92. 000000F0  42A7                     clr.l      -[A7]
  93. 000000F2  2F2D FFC6                move.l     -[A7], [A5 - 0x3A]
  94. 000000F6  A93D                     syscall    MenuSelect
  95. 000000F8  4EAD 00AA                jsr        [A5 + 0xAA /* export_17 */]
  96. 000000FC  605A                     bra        +0x5C /* 00000158 */
  97. label000000FE:
  98. 000000FE  6058                     bra        +0x5A /* 00000158 */
  99. label00000100:
  100. 00000100  6056                     bra        +0x58 /* 00000158 */
  101. label00000102:
  102. 00000102  7003                     moveq.l    D0, 0x03
  103. 00000104  B06D EC24                cmp.w      D0, [A5 - 0x13DC]
  104. 00000108  57C0                     seq        D0
  105. 0000010A  722B                     moveq.l    D1, 0x2B
  106. 0000010C  B26D EC30                cmp.w      D1, [A5 - 0x13D0]
  107. 00000110  5DC1                     slt        D1
  108. 00000112  C001                     and.b      D0, D1
  109. 00000114  4A2D C62D                tst.b      [A5 - 0x39D3]
  110. 00000118  57C1                     seq        D1
  111. 0000011A  C001                     and.b      D0, D1
  112. 0000011C  6704                     beq        +0x6 /* 00000122 */
  113. 0000011E  4EAD 00FA                jsr        [A5 + 0xFA /* export_27 */]
  114. label00000122:
  115. 00000122  6034                     bra        +0x36 /* 00000158 */
  116. label00000124:
  117. 00000124  2F2D FFBE                move.l     -[A7], [A5 - 0x42]
  118. 00000128  2F3C 0000 0100           move.l     -[A7], 0x100
  119. 0000012E  4EBA 05E0                jsr        [PC + 0x5E0 /* 00000710 */]
  120. 00000132  201F                     move.l     D0, [A7]+
  121. 00000134  3B40 EC20                move.w     [A5 - 0x13E0], D0
  122. 00000138  6B18                     bmi        +0x1A /* 00000152 */
  123. 0000013A  B07C 00FF                cmp.w      D0, 0xFF
  124. 0000013E  6E12                     bgt        +0x14 /* 00000152 */
  125. 00000140  41ED EC20                lea.l      A0, [A5 - 0x13E0]
  126. 00000144  3200                     move.w     D1, D0
  127. 00000146  E649                     lsr        D1.w, 3
  128. 00000148  4441                     neg.w      D1
  129. 0000014A  0130 10FF                btst       [A0 + D1.w - 0x1], D0
  130. 0000014E  0A3C 0004                xori.b     ccr, 4
  131. label00000152:
  132. 00000152  6604                     bne        +0x6 /* 00000158 */
  133. 00000154  4EAD 00CA                jsr        [A5 + 0xCA /* export_21 */]
  134. label00000158:
  135. 00000158  102D FF0F                move.b     D0, [A5 - 0xF1]
  136. 0000015C  6700 FEC6                beq        -0x138 /* 00000024 */
  137. 00000160  4EAD 0092                jsr        [A5 + 0x92 /* export_14 */]
  138. 00000164  4EBA 055E                jsr        [PC + 0x55E /* 000006C4 */]
  139. 00000168  4EBA 0560                jsr        [PC + 0x560 /* 000006CA */]
  140. 0000016C  4E75                     rts
  141. 0000016E  4E5E                     unlink     A6
  142. 00000170  4E75                     rts
  143. 00000172  C845                     and.w      D4, D5
  144. 00000174  4C4F 4D41                movem.l    D0,D6,A0,A2,A3,A6, A7
  145. 00000178  5448                     addq.w     A0, 2
  146. 0000017A  0000 225F                ori.b      D0, 0x5F /* '_' */
  147. 0000017E  201F                     move.l     D0, [A7]+
  148. 00000180  A04C                     syscall    CompactMem
  149. 00000182  2E80                     move.l     [A7], D0
  150. 00000184  4E71                     nop
  151. 00000186  7000                     moveq.l    D0, 0x00
  152. label00000188:
  153. 00000188  2F09                     move.l     -[A7], A1
  154. label0000018A:
  155. 0000018A  31C0 0220                move.w     [0x00000220 /* MemErr */], D0
  156. 0000018E  4E75                     rts
  157. 00000190  7000                     moveq.l    D0, 0x00
  158. 00000192  60F6                     bra        -0x8 /* 0000018A */
  159. export_1:
  160. 00000194  225F                     movea.l    A1, [A7]+
  161. 00000196  205F                     movea.l    A0, [A7]+
  162. 00000198  A02D                     syscall    SetApplLimit
  163. 0000019A  4EFA FFEC                jmp        [PC - 0x14 /* 00000188 */]
  164. export_2:
  165. 0000019E  4A78 028E                tst.w      [0x0000028E /* ROM85 */]
  166. 000001A2  6A2A                     bpl        +0x2C /* 000001CE */
  167. 000001A4  2078 0130                movea.l    A0, [0x00000130 /* ApplLimit */]
  168. 000001A8  43F8 0114                lea.l      A1, [0x00000114 /* HeapEnd */]
  169. 000001AC  2008                     move.l     D0, A0
  170. 000001AE  9091                     sub.l      D0, [A1]
  171. 000001B0  740C                     moveq.l    D2, 0x0C
  172. 000001B2  B082                     cmp.l      D0, D2
  173. 000001B4  6516                     bcs        +0x18 /* 000001CC */
  174. 000001B6  2251                     movea.l    A1, [A1]
  175. 000001B8  21C8 0114                move.l     [0x00000114 /* HeapEnd */], A0
  176. 000001BC  2280                     move.l     [A1], D0
  177. 000001BE  4211                     clr.b      [A1]
  178. 000001C0  2278 02AA                movea.l    A1, [0x000002AA /* ApplZone */]
  179. 000001C4  2288                     move.l     [A1], A0
  180. 000001C6  2082                     move.l     [A0], D2
  181. 000001C8  D1A9 000C                add.l      [A1 + 0xC], D0
  182. label000001CC:
  183. 000001CC  4E75                     rts
  184. label000001CE:
  185. 000001CE  A063                     syscall    MaxApplZone
  186. 000001D0  4E75                     rts
  187. export_3:
  188. 000001D2  225F                     movea.l    A1, [A7]+
  189. 000001D4  201F                     move.l     D0, [A7]+
  190. 000001D6  A122                     syscall    NewHandle, flags=1
  191. 000001D8  2E88                     move.l     [A7], A0
  192. 000001DA  4EFA FFAC                jmp        [PC - 0x54 /* 00000188 */]
  193. export_4:
  194. 000001DE  225F                     movea.l    A1, [A7]+
  195. 000001E0  205F                     movea.l    A0, [A7]+
  196. 000001E2  A029                     syscall    HLock
  197. 000001E4  4EFA FFA2                jmp        [PC - 0x5E /* 00000188 */]
  198. export_5:
  199. 000001E8  225F                     movea.l    A1, [A7]+
  200. 000001EA  205F                     movea.l    A0, [A7]+
  201. 000001EC  A02A                     syscall    HUnlock
  202. 000001EE  4EFA FF98                jmp        [PC - 0x68 /* 00000188 */]
  203. export_6:
  204. 000001F2  A036                     syscall    MoreMasters
  205. 000001F4  4EFA FF94                jmp        [PC - 0x6C /* 0000018A */]
  206. export_7:
  207. 000001F8  201F                     move.l     D0, [A7]+
  208. 000001FA  225F                     movea.l    A1, [A7]+
  209. 000001FC  205F                     movea.l    A0, [A7]+
  210. 000001FE  2F00                     move.l     -[A7], D0
  211. 00000200  A03B                     syscall    Delay
  212. 00000202  2280                     move.l     [A1], D0
  213. 00000204  4E75                     rts
  214. export_8:
  215. 00000206  2078 0AE8                movea.l    A0, [0x00000AE8 /* SoundGlue */]
  216. 0000020A  B0F8 0A06                cmpa.w     A0, [0x00000A06 /* MinusOne */]
  217. 0000020E  661E                     bne        +0x20 /* 0000022E */
  218. 00000210  703A                     moveq.l    D0, 0x3A
  219. 00000212  A322                     syscall    NewHandleClear, flags=3
  220. 00000214  6600 00D2                bne        +0xD4 /* 000002E8 */
  221. 00000218  A029                     syscall    HLock
  222. 0000021A  21C8 0AE8                move.l     [0x00000AE8 /* SoundGlue */], A0
  223. 0000021E  2250                     movea.l    A1, [A0]
  224. 00000220  2378 033C 0034           move.l     [A1 + 0x34], [0x0000033C /* IAZNotify */]
  225. 00000226  43FA 0102                lea.l      A1, [PC + 0x102 /* 0000032A, value 0x61E42038 */]
  226. 0000022A  21C9 033C                move.l     [0x0000033C /* IAZNotify */], A1
  227. label0000022E:
  228. 0000022E  2250                     movea.l    A1, [A0]
  229. 00000230  4A69 0010                tst.w      [A1 + 0x10]
  230. 00000234  6F7E                     ble        +0x80 /* 000002B4 */
  231. 00000236  222F 0004                move.l     D1, [A7 + 0x4]
  232. 0000023A  6B72                     bmi        +0x74 /* 000002AE */
  233. 0000023C  50E9 0039                st         [A1 + 0x39]
  234. 00000240  3229 0032                move.w     D1, [A1 + 0x32]
  235. 00000244  2408                     move.l     D2, A0
  236. 00000246  48E7 6000                movem.l    -[A7], D1,D2
  237. 0000024A  A9E1                     syscall    HandToHand
  238. 0000024C  4CDF 0006                movem.l    D1,D2, [A7]+
  239. 00000250  4A40                     tst.w      D0
  240. 00000252  6600 0094                bne        +0x96 /* 000002E8 */
  241. 00000256  7000                     moveq.l    D0, 0x00
  242. 00000258  0641 000C                addi.w     D1, 0xC
  243. 0000025C  3001                     move.w     D0, D1
  244. 0000025E  A024                     syscall    SetHandleSize
  245. 00000260  6600 0086                bne        +0x88 /* 000002E8 */
  246. 00000264  A029                     syscall    HLock
  247. 00000266  21C8 0AE8                move.l     [0x00000AE8 /* SoundGlue */], A0
  248. 0000026A  2250                     movea.l    A1, [A0]
  249. 0000026C  2078 027A                movea.l    A0, [0x0000027A /* SoundDCE */]
  250. 00000270  2149 0008                move.l     [A0 + 0x8], A1
  251. 00000274  2149 000C                move.l     [A0 + 0xC], A1
  252. 00000278  2042                     movea.l    A0, D2
  253. 0000027A  2050                     movea.l    A0, [A0]
  254. 0000027C  1028 0038                move.b     D0, [A0 + 0x38]
  255. 00000280  8129 0038                or.b       [A1 + 0x38], D0
  256. 00000284  2042                     movea.l    A0, D2
  257. 00000286  A023                     syscall    DisposHandle/DisposeHandle
  258. 00000288  3341 0032                move.w     [A1 + 0x32], D1
  259. 0000028C  08A9 0000 0038           bclr.b     [A1 + 0x38], 0x0
  260. 00000292  6708                     beq        +0xA /* 0000029C */
  261. 00000294  4269 0010                clr.w      [A1 + 0x10]
  262. 00000298  4EBA 009C                jsr        [PC + 0x9C /* 00000336 */]
  263. label0000029C:
  264. 0000029C  51E9 0039                sf         [A1 + 0x39]
  265. 000002A0  D2C1                     add.w      A1, D1
  266. 000002A2  700C                     moveq.l    D0, 0x0C
  267. 000002A4  92C0                     sub.w      A1, D0
  268. 000002A6  41EF 0004                lea.l      A0, [A7 + 0x4]
  269. 000002AA  A02E                     syscall    BlockMove/BlockMoveData
  270. 000002AC  603E                     bra        +0x40 /* 000002EC */
  271. label000002AE:
  272. 000002AE  3028 0010                move.w     D0, [A0 + 0x10]
  273. 000002B2  6EFA                     bgt        -0x4 /* 000002AE */
  274. label000002B4:
  275. 000002B4  2049                     movea.l    A0, A1
  276. 000002B6  317C 003A 0032           move.w     [A0 + 0x32], 0x3A /* ':' */
  277. 000002BC  216F 0008 0024           move.l     [A0 + 0x24], [A7 + 0x8]
  278. 000002C2  216F 000C 0020           move.l     [A0 + 0x20], [A7 + 0xC]
  279. 000002C8  317C FFFC 0018           move.w     [A0 + 0x18], 0xFFFC
  280. 000002CE  222F 0004                move.l     D1, [A7 + 0x4]
  281. 000002D2  6A04                     bpl        +0x6 /* 000002D8 */
  282. 000002D4  A003                     syscall    Write
  283. 000002D6  600E                     bra        +0x10 /* 000002E6 */
  284. label000002D8:
  285. 000002D8  2141 001C                move.l     [A0 + 0x1C], D1
  286. 000002DC  43FA 0058                lea.l      A1, [PC + 0x58 /* 00000336, value 0x48E7E0C0 */]
  287. 000002E0  2149 000C                move.l     [A0 + 0xC], A1
  288. 000002E4  A403                     syscall    Write, flags=4
  289. label000002E6:
  290. 000002E6  4A40                     tst.w      D0
  291. label000002E8:
  292. 000002E8  6702                     beq        +0x4 /* 000002EC */
  293. 000002EA  6108                     bsr        +0xA /* 000002F4 */
  294. label000002EC:
  295. 000002EC  225F                     movea.l    A1, [A7]+
  296. 000002EE  DEFC 000C                add.w      A7, 0xC
  297. 000002F2  4ED1                     jmp        [A1]
  298. fn000002F4:
  299. 000002F4  2078 0AE8                movea.l    A0, [0x00000AE8 /* SoundGlue */]
  300. 000002F8  B0F8 0A06                cmpa.w     A0, [0x00000A06 /* MinusOne */]
  301. 000002FC  6710                     beq        +0x12 /* 0000030E */
  302. 000002FE  2250                     movea.l    A1, [A0]
  303. 00000300  21E9 0034 033C           move.l     [0x0000033C /* IAZNotify */], [A1 + 0x34]
  304. 00000306  A023                     syscall    DisposHandle/DisposeHandle
  305. 00000308  21F8 0A06 0AE8           move.l     [0x00000AE8 /* SoundGlue */], [0x00000A06 /* MinusOne */]
  306. label0000030E:
  307. 0000030E  4E75                     rts
  308. fn00000310:
  309. 00000310  4E56 FFE0                link       A6, -0x0020
  310. 00000314  41EE FFE0                lea.l      A0, [A6 - 0x20]
  311. 00000318  317C FFFC 0018           move.w     [A0 + 0x18], 0xFFFC
  312. 0000031E  A206                     syscall    KillIO, flags=2
  313. 00000320  4278 0280                clr.w      [0x00000280 /* CurPitch */]
  314. 00000324  61CE                     bsr        -0x30 /* 000002F4 */
  315. 00000326  4E5E                     unlink     A6
  316. label00000328:
  317. 00000328  4E75                     rts
  318. 0000032A  61E4                     bsr        -0x1A /* 00000310 */
  319. 0000032C  2038 033C                move.l     D0, [0x0000033C /* IAZNotify */]
  320. 00000330  6FF6                     ble        -0x8 /* 00000328 */
  321. 00000332  2040                     movea.l    A0, D0
  322. 00000334  4ED0                     jmp        [A0]
  323. fn00000336:
  324. 00000336  48E7 E0C0                movem.l    -[A7], D0,D1,D2,A0,A1
  325. 0000033A  2078 0AE8                movea.l    A0, [0x00000AE8 /* SoundGlue */]
  326. 0000033E  2050                     movea.l    A0, [A0]
  327. 00000340  4A28 0039                tst.b      [A0 + 0x39]
  328. 00000344  6706                     beq        +0x8 /* 0000034C */
  329. 00000346  50E8 0038                st         [A0 + 0x38]
  330. 0000034A  6062                     bra        +0x64 /* 000003AE */
  331. label0000034C:
  332. 0000034C  3028 0032                move.w     D0, [A0 + 0x32]
  333. 00000350  2228 001C                move.l     D1, [A0 + 0x1C]
  334. 00000354  670C                     beq        +0xE /* 00000362 */
  335. 00000356  2241                     movea.l    A1, D1
  336. 00000358  48E7 8080                movem.l    -[A7], D0,A0
  337. 0000035C  4E91                     jsr        [A1]
  338. 0000035E  4CDF 0101                movem.l    D0,A0, [A7]+
  339. label00000362:
  340. 00000362  0C40 003A                cmpi.w     D0, 0x3A /* ':' */
  341. 00000366  6746                     beq        +0x48 /* 000003AE */
  342. 00000368  2248                     movea.l    A1, A0
  343. 0000036A  41E8 003A                lea.l      A0, [A0 + 0x3A]
  344. 0000036E  2358 001C                move.l     [A1 + 0x1C], [A0]+
  345. 00000372  2358 0024                move.l     [A1 + 0x24], [A0]+
  346. 00000376  2358 0020                move.l     [A1 + 0x20], [A0]+
  347. 0000037A  337C FFFC 0018           move.w     [A1 + 0x18], 0xFFFC
  348. 00000380  7246                     moveq.l    D1, 0x46
  349. 00000382  9041                     sub.w      D0, D1
  350. 00000384  6712                     beq        +0x14 /* 00000398 */
  351. 00000386  3200                     move.w     D1, D0
  352. 00000388  48C0                     ext.l      D0
  353. 0000038A  2248                     movea.l    A1, A0
  354. 0000038C  92FC 000C                sub.w      A1, 0xC
  355. 00000390  A02E                     syscall    BlockMove/BlockMoveData
  356. 00000392  0641 003A                addi.w     D1, 0x3A /* ':' */
  357. 00000396  6002                     bra        +0x4 /* 0000039A */
  358. label00000398:
  359. 00000398  723A                     moveq.l    D1, 0x3A
  360. label0000039A:
  361. 0000039A  2078 0AE8                movea.l    A0, [0x00000AE8 /* SoundGlue */]
  362. 0000039E  2050                     movea.l    A0, [A0]
  363. 000003A0  3141 0032                move.w     [A0 + 0x32], D1
  364. 000003A4  43FA FF90                lea.l      A1, [PC - 0x70 /* 00000336, value 0x48E7E0C0 */]
  365. 000003A8  2149 000C                move.l     [A0 + 0xC], A1
  366. 000003AC  A403                     syscall    Write, flags=4
  367. label000003AE:
  368. 000003AE  4CDF 0307                movem.l    D0,D1,D2,A0,A1, [A7]+
  369. 000003B2  4E75                     rts
  370. export_9:
  371. 000003B4  225F                     movea.l    A1, [A7]+
  372. 000003B6  50D7                     st         [A7]
  373. 000003B8  2078 0AE8                movea.l    A0, [0x00000AE8 /* SoundGlue */]
  374. 000003BC  B0F8 0A06                cmpa.w     A0, [0x00000A06 /* MinusOne */]
  375. 000003C0  6708                     beq        +0xA /* 000003CA */
  376. 000003C2  2050                     movea.l    A0, [A0]
  377. 000003C4  4A68 0010                tst.w      [A0 + 0x10]
  378. 000003C8  5FD7                     sle        [A7]
  379. label000003CA:
  380. 000003CA  4417                     neg.b      [A7]
  381. 000003CC  4ED1                     jmp        [A1]
  382. export_10:
  383. 000003CE  206F 0004                movea.l    A0, [A7 + 0x4]
  384. 000003D2  202F 0008                move.l     D0, [A7 + 0x8]
  385. 000003D6  4267                     clr.w      -[A7]
  386. 000003D8  A9EE                     syscall    Pack7/DecStr68K
  387. 000003DA  205F                     movea.l    A0, [A7]+
  388. 000003DC  504F                     addq.w     A7, 8
  389. 000003DE  4ED0                     jmp        [A0]
  390. fn000003E0:
  391. 000003E0  4E56 0000                link       A6, 0
  392. 000003E4  48E7 3030                movem.l    -[A7], D2,D3,A2,A3
  393. 000003E8  262E 0008                move.l     D3, [A6 + 0x8]
  394. 000003EC  266E 000C                movea.l    A3, [A6 + 0xC]
  395. 000003F0  242E 0010                move.l     D2, [A6 + 0x10]
  396. 000003F4  4EAD 0122                jsr        [A5 + 0x122 /* export_32 */]
  397. 000003F8  206D C4C0                movea.l    A0, [A5 - 0x3B40]
  398. 000003FC  2083                     move.l     [A0], D3
  399. 000003FE  7001                     moveq.l    D0, 0x01
  400. 00000400  4AB8 0316                tst.l      [0x00000316 /* HpChk/MacPgm */]
  401. 00000404  6700 0036                beq        +0x38 /* 0000043C */
  402. 00000408  0838 0000 0319           btst.b     [0x00000319], 0x0
  403. 0000040E  6600 002C                bne        +0x2E /* 0000043C */
  404. 00000412  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  405. 00000416  0C90 4D50 474D           cmpi.l     [A0], 0x4D50474D /* 'MPGM' */
  406. 0000041C  6600 001E                bne        +0x20 /* 0000043C */
  407. 00000420  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  408. 00000424  4AA8 0004                tst.l      [A0 + 0x4]
  409. 00000428  6700 0012                beq        +0x14 /* 0000043C */
  410. 0000042C  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  411. 00000430  2268 0004                movea.l    A1, [A0 + 0x4]
  412. 00000434  4A51                     tst.w      [A1]
  413. 00000436  6700 0004                beq        +0x6 /* 0000043C */
  414. 0000043A  7000                     moveq.l    D0, 0x00
  415. label0000043C:
  416. 0000043C  2B40 C4DE                move.l     [A5 - 0x3B22], D0
  417. 00000440  4AAD C4DE                tst.l      [A5 - 0x3B22]
  418. 00000444  6700 0058                beq        +0x5A /* 0000049E */
  419. 00000448  41F8 0910                lea.l      A0, [0x00000910 /* CurApName */]
  420. 0000044C  43ED C486                lea.l      A1, [A5 - 0x3B7A]
  421. 00000450  7010                     moveq.l    D0, 0x10
  422. label00000452:
  423. 00000452  32D8                     move.w     [A1]+, [A0]+
  424. 00000454  51C8 FFFC                dbf        D0, -0x6 /* 00000452 */
  425. 00000458  206D C4B0                movea.l    A0, [A5 - 0x3B50]
  426. 0000045C  43ED C486                lea.l      A1, [A5 - 0x3B7A]
  427. 00000460  2089                     move.l     [A0], A1
  428. 00000462  4AAE 0018                tst.l      [A6 + 0x18]
  429. 00000466  660C                     bne        +0xE /* 00000474 */
  430. 00000468  206D C4B0                movea.l    A0, [A5 - 0x3B50]
  431. 0000046C  2F10                     move.l     -[A7], [A0]
  432. 0000046E  4EBA 0210                jsr        [PC + 0x210 /* 00000680 */]
  433. 00000472  588F                     addq.l     A7, 4
  434. label00000474:
  435. 00000474  200B                     move.l     D0, A3
  436. 00000476  6704                     beq        +0x6 /* 0000047C */
  437. 00000478  7001                     moveq.l    D0, 0x01
  438. 0000047A  2680                     move.l     [A3], D0
  439. label0000047C:
  440. 0000047C  4A82                     tst.l      D2
  441. 0000047E  6706                     beq        +0x8 /* 00000486 */
  442. 00000480  2042                     movea.l    A0, D2
  443. 00000482  20AD C4B0                move.l     [A0], [A5 - 0x3B50]
  444. label00000486:
  445. 00000486  4AAE 0014                tst.l      [A6 + 0x14]
  446. 0000048A  6708                     beq        +0xA /* 00000494 */
  447. 0000048C  206E 0014                movea.l    A0, [A6 + 0x14]
  448. 00000490  20AD C4B4                move.l     [A0], [A5 - 0x3B4C]
  449. label00000494:
  450. 00000494  7001                     moveq.l    D0, 0x01
  451. 00000496  2B40 C4DE                move.l     [A5 - 0x3B22], D0
  452. 0000049A  6000 0114                bra        +0x116 /* 000005B0 */
  453. label0000049E:
  454. 0000049E  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  455. 000004A2  2268 0004                movea.l    A1, [A0 + 0x4]
  456. 000004A6  3011                     move.w     D0, [A1]
  457. 000004A8  B06D C4AA                cmp.w      D0, [A5 - 0x3B56]
  458. 000004AC  670C                     beq        +0xE /* 000004BA */
  459. 000004AE  2F3C 8000 0000           move.l     -[A7], 0x80000000
  460. 000004B4  4EBA 012C                jsr        [PC + 0x12C /* 000005E2 */]
  461. 000004B8  588F                     addq.l     A7, 4
  462. label000004BA:
  463. 000004BA  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  464. 000004BE  2268 0004                movea.l    A1, [A0 + 0x4]
  465. 000004C2  41ED C4AA                lea.l      A0, [A5 - 0x3B56]
  466. 000004C6  2348 0024                move.l     [A1 + 0x24], A0
  467. 000004CA  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  468. 000004CE  2B68 0004 C4CE           move.l     [A5 - 0x3B32], [A0 + 0x4]
  469. 000004D4  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  470. 000004D8  2268 0004                movea.l    A1, [A0 + 0x4]
  471. 000004DC  2B69 0002 C4AC           move.l     [A5 - 0x3B54], [A1 + 0x2]
  472. 000004E2  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  473. 000004E6  2268 0004                movea.l    A1, [A0 + 0x4]
  474. 000004EA  2B69 0006 C4B0           move.l     [A5 - 0x3B50], [A1 + 0x6]
  475. 000004F0  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  476. 000004F4  2268 0004                movea.l    A1, [A0 + 0x4]
  477. 000004F8  2B69 000A C4B4           move.l     [A5 - 0x3B4C], [A1 + 0xA]
  478. 000004FE  4AAE 0018                tst.l      [A6 + 0x18]
  479. 00000502  672C                     beq        +0x2E /* 00000530 */
  480. 00000504  246D C4B0                movea.l    A2, [A5 - 0x3B50]
  481. 00000508  600A                     bra        +0xC /* 00000514 */
  482. label0000050A:
  483. 0000050A  2F12                     move.l     -[A7], [A2]
  484. 0000050C  4EBA 0140                jsr        [PC + 0x140 /* 0000064E */]
  485. 00000510  588F                     addq.l     A7, 4
  486. 00000512  588A                     addq.l     A2, 4
  487. label00000514:
  488. 00000514  4A92                     tst.l      [A2]
  489. 00000516  6600 FFF2                bne        -0xC /* 0000050A */
  490. 0000051A  246D C4B4                movea.l    A2, [A5 - 0x3B4C]
  491. 0000051E  600A                     bra        +0xC /* 0000052A */
  492. label00000520:
  493. 00000520  2F12                     move.l     -[A7], [A2]
  494. 00000522  4EBA 012A                jsr        [PC + 0x12A /* 0000064E */]
  495. 00000526  588F                     addq.l     A7, 4
  496. 00000528  588A                     addq.l     A2, 4
  497. label0000052A:
  498. 0000052A  4A92                     tst.l      [A2]
  499. 0000052C  6600 FFF2                bne        -0xC /* 00000520 */
  500. label00000530:
  501. 00000530  200B                     move.l     D0, A3
  502. 00000532  6704                     beq        +0x6 /* 00000538 */
  503. 00000534  26AD C4AC                move.l     [A3], [A5 - 0x3B54]
  504. label00000538:
  505. 00000538  4A82                     tst.l      D2
  506. 0000053A  6706                     beq        +0x8 /* 00000542 */
  507. 0000053C  2042                     movea.l    A0, D2
  508. 0000053E  20AD C4B0                move.l     [A0], [A5 - 0x3B50]
  509. label00000542:
  510. 00000542  4AAE 0014                tst.l      [A6 + 0x14]
  511. 00000546  6708                     beq        +0xA /* 00000550 */
  512. 00000548  206E 0014                movea.l    A0, [A6 + 0x14]
  513. 0000054C  20AD C4B4                move.l     [A0], [A5 - 0x3B4C]
  514. label00000550:
  515. 00000550  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  516. 00000554  2268 0004                movea.l    A1, [A0 + 0x4]
  517. 00000558  4AA9 0020                tst.l      [A1 + 0x20]
  518. 0000055C  674C                     beq        +0x4E /* 000005AA */
  519. 0000055E  4878 0078                push.l     0x78 /* 'x' */
  520. 00000562  4EBA 00E0                jsr        [PC + 0xE0 /* 00000644 */]
  521. 00000566  2B40 C4CA                move.l     [A5 - 0x3B36], D0
  522. 0000056A  2078 0316                movea.l    A0, [0x00000316 /* HpChk/MacPgm */]
  523. 0000056E  2268 0004                movea.l    A1, [A0 + 0x4]
  524. 00000572  2429 0020                move.l     D2, [A1 + 0x20]
  525. 00000576  7200                     moveq.l    D1, 0x00
  526. 00000578  588F                     addq.l     A7, 4
  527. label0000057A:
  528. 0000057A  2001                     move.l     D0, D1
  529. 0000057C  E780                     asl        D0, 3
  530. 0000057E  2600                     move.l     D3, D0
  531. 00000580  D080                     add.l      D0, D0
  532. 00000582  D083                     add.l      D0, D3
  533. 00000584  2240                     movea.l    A1, D0
  534. 00000586  D3ED C4CA                add.l      A1, [A5 - 0x3B36]
  535. 0000058A  2601                     move.l     D3, D1
  536. 0000058C  E783                     asl        D3, 3
  537. 0000058E  2003                     move.l     D0, D3
  538. 00000590  D683                     add.l      D3, D3
  539. 00000592  D680                     add.l      D3, D0
  540. 00000594  2043                     movea.l    A0, D3
  541. 00000596  D1C2                     add.l      A0, D2
  542. 00000598  7005                     moveq.l    D0, 0x05
  543. label0000059A:
  544. 0000059A  22D8                     move.l     [A1]+, [A0]+
  545. 0000059C  51C8 FFFC                dbf        D0, -0x6 /* 0000059A */
  546. 000005A0  5281                     addq.l     D1, 1
  547. 000005A2  7005                     moveq.l    D0, 0x05
  548. 000005A4  B081                     cmp.l      D0, D1
  549. 000005A6  6E00 FFD2                bgt        -0x2C /* 0000057A */
  550. label000005AA:
  551. 000005AA  7000                     moveq.l    D0, 0x00
  552. 000005AC  2B40 C4DE                move.l     [A5 - 0x3B22], D0
  553. label000005B0:
  554. 000005B0  4CEE 0C0C FFF0           movem.l    D2,D3,A2,A3, [A6 - 0x10]
  555. 000005B6  4E5E                     unlink     A6
  556. 000005B8  4E75                     rts
  557. 000005BA  DF52                     add.w      [A2], D7
  558. 000005BC  5449                     addq.w     A1, 2
  559. 000005BE  4E49                     trap       9
  560. 000005C0  5420                     addq.b     -[A0], 2
  561. fn000005C2:
  562. 000005C2  4E56 0000                link       A6, 0
  563. 000005C6  202E 0008                move.l     D0, [A6 + 0x8]
  564. 000005CA  0280 00FF FFFF           andi.l     D0, 0xFFFFFF
  565. 000005D0  2F00                     move.l     -[A7], D0
  566. 000005D2  4EBA 000E                jsr        [PC + 0xE /* 000005E2 */]
  567. 000005D6  4E5E                     unlink     A6
  568. 000005D8  4E75                     rts
  569. 000005DA  C558                     and.w      [A0]+, D2
  570. 000005DC  4954                     chk.w      D4, [A4]
  571. 000005DE  2020                     move.l     D0, -[A0]
  572. 000005E0  2020                     move.l     D0, -[A0]
  573. fn000005E2:
  574. 000005E2  4E56 0000                link       A6, 0
  575. 000005E6  48E7 2020                movem.l    -[A7], D2,A2
  576. 000005EA  242E 0008                move.l     D2, [A6 + 0x8]
  577. 000005EE  206D C4C0                movea.l    A0, [A5 - 0x3B40]
  578. 000005F2  7024                     moveq.l    D0, 0x24
  579. 000005F4  D1C0                     add.l      A0, D0
  580. 000005F6  2448                     movea.l    A2, A0
  581. 000005F8  600E                     bra        +0x10 /* 00000608 */
  582. label000005FA:
  583. 000005FA  4A92                     tst.l      [A2]
  584. 000005FC  6708                     beq        +0xA /* 00000606 */
  585. 000005FE  2F02                     move.l     -[A7], D2
  586. 00000600  2052                     movea.l    A0, [A2]
  587. 00000602  4E90                     jsr        [A0]
  588. 00000604  588F                     addq.l     A7, 4
  589. label00000606:
  590. 00000606  598A                     subq.l     A2, 4
  591. label00000608:
  592. 00000608  206D C4C0                movea.l    A0, [A5 - 0x3B40]
  593. 0000060C  B5C8                     cmpa.l     A2, A0
  594. 0000060E  6200 FFEA                bhi        -0x14 /* 000005FA */
  595. 00000612  4AAD C4CE                tst.l      [A5 - 0x3B32]
  596. 00000616  6708                     beq        +0xA /* 00000620 */
  597. 00000618  206D C4CE                movea.l    A0, [A5 - 0x3B32]
  598. 0000061C  2142 000E                move.l     [A0 + 0xE], D2
  599. label00000620:
  600. 00000620  206D C4C0                movea.l    A0, [A5 - 0x3B40]
  601. 00000624  2050                     movea.l    A0, [A0]
  602. 00000626  4E90                     jsr        [A0]
  603. 00000628  4CEE 0404 FFF8           movem.l    D2,A2, [A6 - 0x8]
  604. 0000062E  4E5E                     unlink     A6
  605. 00000630  4E75                     rts
  606. 00000632  DF52                     add.w      [A2], D7
  607. 00000634  5445                     addq.w     D5, 2
  608. 00000636  5849                     addq.w     A1, 4
  609. 00000638  5420                     addq.b     -[A0], 2
  610. 0000063A  7000                     moveq.l    D0, 0x00
  611. label0000063C:
  612. 0000063C  31C0 0220                move.w     [0x00000220 /* MemErr */], D0
  613. 00000640  2008                     move.l     D0, A0
  614. 00000642  4E75                     rts
  615. fn00000644:
  616. 00000644  202F 0004                move.l     D0, [A7 + 0x4]
  617. 00000648  A11E                     syscall    NewPtr, flags=1
  618. 0000064A  4EFA FFF0                jmp        [PC - 0x10 /* 0000063C */]
  619. fn0000064E:
  620. 0000064E  202F 0004                move.l     D0, [A7 + 0x4]
  621. 00000652  6726                     beq        +0x28 /* 0000067A */
  622. 00000654  2040                     movea.l    A0, D0
  623. 00000656  2248                     movea.l    A1, A0
  624. 00000658  1019                     move.b     D0, [A1]+
  625. 0000065A  671E                     beq        +0x20 /* 0000067A */
  626. label0000065C:
  627. 0000065C  1211                     move.b     D1, [A1]
  628. 0000065E  12C0                     move.b     [A1]+, D0
  629. 00000660  1001                     move.b     D0, D1
  630. 00000662  66F8                     bne        -0x6 /* 0000065C */
  631. 00000664  93C8                     sub.l      A1, A0
  632. 00000666  2009                     move.l     D0, A1
  633. 00000668  5340                     subq.w     D0, 1
  634. 0000066A  0C80 0000 00FF           cmpi.l     D0, 0xFF
  635. 00000670  6F06                     ble        +0x8 /* 00000678 */
  636. 00000672  203C 0000 00FF           move.l     D0, 0xFF
  637. label00000678:
  638. 00000678  1080                     move.b     [A0], D0
  639. label0000067A:
  640. 0000067A  202F 0004                move.l     D0, [A7 + 0x4]
  641. 0000067E  4E75                     rts
  642. fn00000680:
  643. 00000680  202F 0004                move.l     D0, [A7 + 0x4]
  644. 00000684  6712                     beq        +0x14 /* 00000698 */
  645. 00000686  2040                     movea.l    A0, D0
  646. 00000688  7000                     moveq.l    D0, 0x00
  647. 0000068A  1010                     move.b     D0, [A0]
  648. 0000068C  6004                     bra        +0x6 /* 00000692 */
  649. label0000068E:
  650. 0000068E  10E8 0001                move.b     [A0]+, [A0 + 0x1]
  651. label00000692:
  652. 00000692  51C8 FFFA                dbf        D0, -0x8 /* 0000068E */
  653. 00000696  4210                     clr.b      [A0]
  654. label00000698:
  655. 00000698  202F 0004                move.l     D0, [A7 + 0x4]
  656. 0000069C  4E75                     rts
  657. fn0000069E:
  658. 0000069E  4E75                     rts
  659. fn000006A0:
  660. 000006A0  226F 0004                movea.l    A1, [A7 + 0x4]
  661. 000006A4  4878 0001                push.l     0x1
  662. 000006A8  486D C4EA                pea.l      [A5 - 0x3B16]
  663. 000006AC  486D C4E6                pea.l      [A5 - 0x3B1A]
  664. 000006B0  486D C4E2                pea.l      [A5 - 0x3B1E]
  665. 000006B4  2F09                     move.l     -[A7], A1
  666. 000006B6  4EBA FD28                jsr        [PC - 0x2D8 /* 000003E0 */]
  667. 000006BA  4FEF 0014                lea.l      A7, [A7 + 0x14]
  668. 000006BE  4EBA 0010                jsr        [PC + 0x10 /* 000006D0 */]
  669. 000006C2  4E75                     rts
  670. fn000006C4:
  671. 000006C4  42A7                     clr.l      -[A7]
  672. 000006C6  4EBA FEFA                jsr        [PC - 0x106 /* 000005C2 */]
  673. fn000006CA:
  674. 000006CA  42A7                     clr.l      -[A7]
  675. 000006CC  4EBA FEF4                jsr        [PC - 0x10C /* 000005C2 */]
  676. fn000006D0:
  677. 000006D0  4E56 0000                link       A6, 0
  678. 000006D4  2B7C 0000 1388 C514      move.l     [A5 - 0x3AEC], 0x1388
  679. 000006DC  422D C50F                clr.b      [A5 - 0x3AF1]
  680. 000006E0  422D C50E                clr.b      [A5 - 0x3AF2]
  681. 000006E4  7000                     moveq.l    D0, 0x00
  682. 000006E6  2B40 C508                move.l     [A5 - 0x3AF8], D0
  683. 000006EA  7000                     moveq.l    D0, 0x00
  684. 000006EC  2B40 C504                move.l     [A5 - 0x3AFC], D0
  685. 000006F0  7000                     moveq.l    D0, 0x00
  686. 000006F2  2B40 C4F8                move.l     [A5 - 0x3B08], D0
  687. 000006F6  7000                     moveq.l    D0, 0x00
  688. 000006F8  2B40 C4F4                move.l     [A5 - 0x3B0C], D0
  689. 000006FC  1B7C 0001 C4F3           move.b     [A5 - 0x3B0D], 0x1
  690. 00000702  4E5E                     unlink     A6
  691. 00000704  4E75                     rts
  692. 00000706  A549                     syscall    HPurge, flags=5
  693. 00000708  4E49                     trap       9
  694. 0000070A  5448                     addq.w     A0, 2
  695. 0000070C  4541                     chk.w      D2, D1
  696. 0000070E  0000 4E56                ori.b      D0, 0x56 /* 'V' */
  697. // begin alternate branch 00000710-00000716
  698. fn00000710:
  699. 00000710  4E56 0000                link       A6, 0
  700. 00000714  2F00                     move.l     -[A7], D0
  701. // end alternate branch 00000710-00000716
  702. fn00000710: // (misaligned)
  703. 00000712  0000 2F00                ori.b      D0, 0x0
  704. 00000716  2F01                     move.l     -[A7], D1
  705. 00000718  202F 0014                move.l     D0, [A7 + 0x14]
  706. 0000071C  222F 0010                move.l     D1, [A7 + 0x10]
  707. 00000720  4EBA 0014                jsr        [PC + 0x14 /* 00000736 */]
  708. 00000724  2F40 0014                move.l     [A7 + 0x14], D0
  709. 00000728  221F                     move.l     D1, [A7]+
  710. 0000072A  201F                     move.l     D0, [A7]+
  711. 0000072C  4E5E                     unlink     A6
  712. 0000072E  2F57 0004                move.l     [A7 + 0x4], [A7]
  713. 00000732  588F                     addq.l     A7, 4
  714. 00000734  4E75                     rts
  715. fn00000736:
  716. 00000736  48E7 3E00                movem.l    -[A7], D2,D3,D4,D5,D6
  717. 0000073A  2A00                     move.l     D5, D0
  718. 0000073C  6A02                     bpl        +0x4 /* 00000740 */
  719. 0000073E  4480                     neg.l      D0
  720. label00000740:
  721. 00000740  2C01                     move.l     D6, D1
  722. 00000742  6A02                     bpl        +0x4 /* 00000746 */
  723. 00000744  4481                     neg.l      D1
  724. label00000746:
  725. 00000746  2401                     move.l     D2, D1
  726. 00000748  4842                     swap.w     D2
  727. 0000074A  4A42                     tst.w      D2
  728. 0000074C  661C                     bne        +0x1E /* 0000076A */
  729. 0000074E  3600                     move.w     D3, D0
  730. 00000750  4240                     clr.w      D0
  731. 00000752  4840                     swap.w     D0
  732. 00000754  6704                     beq        +0x6 /* 0000075A */
  733. 00000756  80C1                     divu.w     D0, D1
  734. 00000758  3400                     move.w     D2, D0
  735. label0000075A:
  736. 0000075A  4842                     swap.w     D2
  737. 0000075C  3003                     move.w     D0, D3
  738. 0000075E  80C1                     divu.w     D0, D1
  739. 00000760  3400                     move.w     D2, D0
  740. 00000762  2202                     move.l     D1, D2
  741. 00000764  4240                     clr.w      D0
  742. 00000766  4840                     swap.w     D0
  743. 00000768  601C                     bra        +0x1E /* 00000786 */
  744. label0000076A:
  745. 0000076A  2400                     move.l     D2, D0
  746. 0000076C  2601                     move.l     D3, D1
  747. 0000076E  7000                     moveq.l    D0, 0x00
  748. 00000770  7200                     moveq.l    D1, 0x00
  749. 00000772  781F                     moveq.l    D4, 0x1F
  750. label00000774:
  751. 00000774  D482                     add.l      D2, D2
  752. 00000776  D180                     addx.l     D0, D0
  753. 00000778  D281                     add.l      D1, D1
  754. 0000077A  B083                     cmp.l      D0, D3
  755. 0000077C  6D04                     blt        +0x6 /* 00000782 */
  756. 0000077E  9083                     sub.l      D0, D3
  757. 00000780  5201                     addq.b     D1, 1
  758. label00000782:
  759. 00000782  51CC FFF0                dbf        D4, -0x12 /* 00000774 */
  760. label00000786:
  761. 00000786  4A85                     tst.l      D5
  762. 00000788  6A02                     bpl        +0x4 /* 0000078C */
  763. 0000078A  4480                     neg.l      D0
  764. label0000078C:
  765. 0000078C  BB86                     xor.l      D6, D5
  766. 0000078E  6A02                     bpl        +0x4 /* 00000792 */
  767. 00000790  4481                     neg.l      D1
  768. label00000792:
  769. 00000792  4CDF 007C                movem.l    D2,D3,D4,D5,D6, [A7]+
  770. 00000796  4E75                     rts
  771.